home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / activatetask.scout next >
Text File  |  1996-02-16  |  744b  |  30 lines

  1. /**************************************************************************
  2.  *            This ARexx script activates the task <taskname>.            *
  3.  *                     USAGE: activatetask <taskname>                     *
  4.  **************************************************************************/
  5.  
  6. if showlist('p','SCOUT.1') < 1 then do
  7.   say "Scout is not running!"
  8.   exit
  9. end
  10. address 'SCOUT.1'
  11. parse arg taskname
  12.  
  13. options results
  14. options failat 20
  15.  
  16. if taskname = '' then do
  17.   say "usage: activatetask <taskname>"
  18.   exit
  19. end
  20.  
  21. FindTask taskname
  22. taskaddress = result
  23. if taskaddress = 'RESULT' then
  24.   say "Can't find task '" || taskname || "'!"
  25. else do
  26.   ActivateTask taskname
  27.   say "Now task '" || taskname || "' is activated!"
  28. end
  29. exit
  30.